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FORSPAUSE 16-Sep-1984 00:41: AX-11 Bliss-32 V4.0-74 Page 1. 

ae 99:93:98 FORRTL. SRC IF ORPAUSE .B3 37 . (1) | 
; 1 0001 MODULE FORSPAUSE ( ! FORTRAN PAUSE statement 
; ¢ BONS IDENT = — ! File: FORPAUSE.B32 Edit DGP1003 
; 4 §002 1 BEGIN 
5 5 0005 1 
; 8 Boe 1! 
: 4 s4't4 ! SRR RRA E TERE EEE EATER RERERERERRREREREEEEKEEE 
2 'e a | 
3 G 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 10 0010 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 V bot 4 : > ALL RIGHTS RESERVED. x 
Py : oa 
: ig $018 1 !'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
we 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;. 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
$ 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bats : te TRANSFERRED. * 
; '® * 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 9021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $$ 44 : ‘pe CORPORATION. * 
s 'e * 
b 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
H 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
:; @& 0026 1 !* * 
; 0027 1 !* * | 
: ss pegs : Lee A REAR AAR EREEAEREE A EAAAA AA AAAAERAEATKRRREEE | 
° 1 
3 $4 0030 1 
; 33 0032 : i PactLity FORTRAN S b | 
3 4 : upport Librar 
: 33 0033 1 | es . | 
; 0034 1 ! ABSTRACT: 
co a 0035 1! 
; 38 ORS : FORTRAN PAUSE statement: Output optional string and hibernate 
5 $ site ! ENVIRONMENT: User Mode - AST re-entrant | 
; ra Bey ' AUTHOR: Thomas N. Hastings, CREATION DATE: 8=-Aug-1977 
: 42 0042 1 ! MODIFIED BY: 
: 43 004 1! 
: (44 0044 1! Thomas N. Hastings, 8-Aug-1977: VERSION 0 
, 65 0045 1! 01 - original 
:; 46 0046 1! 0-4 = Output FORTRAN PAUSE, if no arg. TNH 13-Dec-77. 
; «47 0047 1 ! 0-05 = Change to STARLET Library. DGP 20-Apr-7 
; 648 0048 1 ! 0-06 = Change REQUIRE files for VAX system build. DGP 28-Apr-78 
: 49 0049 1 ! 0-07 = Change STARLET to RTLSTARLE to avoid conflicts. DGP 1-May-78 
;s 0050 1! 3-28 - Use SYSS$CLI to pause. INH 77-Jun-78 | 
s $1 0051 1! 0-09 = Make PIC. TNH 30-June-78 
; 26 3036 1! 0-10 = Change file name to FORPAUSE.B32, and change the names of 
> 5 0053 1 the REQUIRE file similarly. JBS 14-NOV-7 
3 54 0054 1 ! 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
3 @ 0055 1! 1-306 - Change REQUIRE file name from FORMAC to OTSMAC, JBS 06-DEC-78 
;. = 0056 1 ! 1-005 - Move ACTUALCOUNT into routine bogy and initialize class and d_type 
s 57 0057 1! in the default descriptor. DGP 28-Oct-1981 
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TABLE OF CONTENTS: 


FORWARD ROUTINE 
FORSPAUSE ; 


| 

INCLUDE FILES: 

REQUIRE "RTLIN:OTSMAC’: 
REQUIRE ‘RTLIN: :RTLPSECT'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 


EQUATED SYMBOLS: 


PSECT DECLARATIONS: 


i OWN STORAGE: 


EXTERNAL REFERENCES: 
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DECLARE _PSECTS (FOR); 


1SrBeoc}9ee 09:41:26 YaNeIT Bb ing=52 v4 0-74 | 


! PAUSE statement 


' macros 
' Define DECLARE_PSECTS macro 
! STARLET Library for macros and symbols 


! declare PSECTs for FORS$ facility 


S$CLI: ADDRESSING_MODE (GENERAL), ! Call command language interpreter (CLI) 
LIBSPUT_OUTPUT: NOVALUE ADDRESSING _MODE (GENERAL) ; ! Output on device SOUTPUT 
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e=8ep-198e 99:32:79 — LPORRTL’SRESFORPAUSE.04551 

GLOBAL ROUTINE FORSPAUSE ( ! FORTRAN a statement 
MESSAGE) ! n 


Adr. of optional string coacr ipter to output 
! Value returned is SSUSPND completion code 


le 


i FUNCTIONAL DESCRIPTION: 
and Shon gatle thi te well ah pate lanes bask O5 aaneetd level 
If no parameter is given, ‘FORTRAN PAUSE’ is output. ‘ 
! FORMAL PARAMETERS: 

MESSAGE .rt.dx ! Adr. of optional string descriptor to output 
IMPLICIT INPUTS: 

Logical device assignment for SOUTPUT (see LIBSPUT_OUTPUT) 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

Operating system completion status on SYSSCLI directive 
SIDE EFFECTS: 

Outputs message on device $OUTPUT and calls SYS$CLI pause function. 


BEGIN 

BUILTIN 

Fee ape ! Return the number of actual parameters 
DESCR: DSCSDESCRIPTOR; ! descriptor (needed to be PIC) 


i Le? GEQ 1 
pg PO et (MESSAGE) 


GIN 
DESCREDSCSB_CLASS} = DSC$K_CLASS_S; 
DESCREDSCS$B-DTYPE) = DSCSK-~DTYPE_T: 
DESCREDSCSW_LENGTH] = 13; 

DESCRCDSCSA-POINTER] = UPLIT ("FORTRAN PAUSE"); 
LIBSPUT_OUTPUT (DESCR); 


CLI$ 


T= K CLISERV + CLISK_PAUSE*256; 
— SYSSCLI (T 


i53 
' End of routine FORSPAUSE 


-TITLE FORSPAUSE 


1 


— 


1B-82p-19 


VerSep-t9Be 19:42:19 


AX-11 Bliss-32 batt gf 
FORRTL.SRCJFORPAUSE .B32;1 


.IDENT \1-003\ 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 
00 00 45 53 55 41 50 20 4& 41 52 56 52 GF 46 90000 P.AAA: .ASCII \FORTRAN 7AUSE\<0><0><0> 
-EXTRN SYSS$CLI, LIBSPUT_OUTPUT 
0000 00000 .ENTRY FORSPAUSE, Save nothing 
5E 0c is 0000 SUBL2 #12, SP 
6¢ 9000 TSTB CAPS 
13 000 BEQL =s«d1S$ 
04 AC 0D 00009 PUSHL MESSAGE 
10 11 0000C BRB 
04 AE O10E000D 8F 00 OO00E 18 MOVL #17694733, DESCR 
08 AE D7 AF 9E 00016 MOVAB P.AAA, DESCR+4 
04 AE 9F 0001B PUSHAB DESCR 
000000006 00 01 FB OO01E 2$ CALLS #1, LIBSPUT_OUTPUT 
6E 0105 8F 3C 0002 MOV2WL #261, T 
5E OD 0002A PUSHL SP 
000000006 00 01 FB 000¢¢ CALLS #1, SYSS$CLI 
04 00033 ET 
; Routine Size: 52 bytes, Routine Base: _FORSCODE + 0010 
3 153 0438 1 END ! End of module FORSPAUSE 
: 154 0439 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _FORSCODE 68 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Pa ibe cae (k er Dees ee ymbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 a 0 581 00:01.0 
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FORSPAUSE 15-Sep- 4 X-11 Bliss-32 v4. Page 6 FC 
et 39 00-1382 99:33:98 — PAMEAT Sk iegese Ni e0-245 9 (3) 1- 
; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:F ORPAUSE/OBJ=OBJ$:FORPAUSE MSRC$:F ORPAUSE/UPDATE=(ENH$:F ORPAUSE ) 

3 Bie ze: de + 16 data bytes 
S hun {tee *R 04. . 
3 Elapsed. Time: 

; nes/CPU Min 

; Lenenes/CPU-Rip: 26 6 


amet Used: 50 pages 
ilation Complete 
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